﻿Public Class Flujos
    Private _perfil As Integer
    Private _estado_inicial As Integer
    Private _estado_final As Integer
    Private _flujo_permtido As Integer

    Public Sub New(ByVal perfil As Integer, ByVal estadoInicial As Integer, ByVal estadoFinal As Integer, ByVal flujoPermtido As Integer)
        _perfil = perfil
        _estado_inicial = estadoInicial
        _estado_final = estadoFinal
        _flujo_permtido = flujoPermtido
    End Sub

    Public Property PerfilProperty() As Integer
        Get
            Return _perfil
        End Get
        Set(ByVal value As Integer)
            _perfil = value
        End Set
    End Property

    Public Property EstadoInicial() As Integer
        Get
            Return _estado_inicial
        End Get
        Set(ByVal value As Integer)
            _estado_inicial = value
        End Set
    End Property

    Public Property EstadoFinal() As Integer
        Get
            Return _estado_final
        End Get
        Set(ByVal value As Integer)
            _estado_final = value
        End Set
    End Property

    Public Property FlujoPermtido() As Integer
        Get
            Return _flujo_permtido
        End Get
        Set(ByVal value As Integer)
            _flujo_permtido = value
        End Set
    End Property
End Class
